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Abbiamo già visto le funzioni matematiche (lez. 12) e 
quelle stringo (lez. 15), ora ti spiegherò come definire 
nuove funzioni che, naturalmente, potranno contenere 
anche quelle già viste. 

Questo è utile soprattutto per le applicazioni 
matematiche, quando è necessario usare la stesso 
funzione in parecchi punti del programmo. L'istruzione che 
ti permette di definire una nuovo funzione è DEF, usato 
nella formo: 


DEF FNA (A,D) =A + A * D 




Nel nome dello funzione FNA, le prime due lettere 
devono sempre essere FN, lo terzo invece lo dovrai 
scegliere tu. 

(A,D) è una listo di argomenti, in questo coso sono 2. 
A + A * D è uno funzione che utilizza gli argomenti 
posti tra le parentesi. 

Lo funzione può avere un numero maggiore di 
variabili, rispetto a quelle presenti come argomenti 
tra le parentesi. 

Puoi definire sia funzioni numeriche che stringo. 
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Ti consiglio di scrivere le definizioni all'inizio del 
programmo, questo perchè sarà più focile poi 
ritrovarle. Per richiamare uno funzione basta 
specificarne il nome, seguito do tanti 
argomenti tra le parentesi quanti sono quelli 
dello definizione. 

Non è necessario che i nomi degli argomenti 
della definizione siano uguali a quelli specificati 
nel richiamo. Puoi usare il richiamo di uno 
funzione come se fosse uno comune variabile 
e quindi metterlo anche all'Interno di 
espressioni. 


Nel calcolo di uno funzione i valori do assegnare agli 

argomenti vengono specificati dalla 
chiamata e non dalla definizione. 
Per compiere il calcolo della 
funzione, ad ogni variabile 
specificata come argomento della 
definizione, verranno assegnati i 
valori o le variabili usate nel 
richiamo. 




Ad esempio in: 

10 DEF FNA (R) = K * R * 0.14 
20 PRINT FNA (6) 

La linea 10 definisce 
la funzione che calcola 
l'area del cerchio. 

La 20 stampa il 
risultato della funzione 
richiamata usando 
l'argomento 6. 
Quindi il computer 
assegnerà R = ó 
e calcolerà: 6 * 6 * 0.14 
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Oppure: 


10DEF FNR(D,A) = D * A 
20 K = 0 
00 Z = FNR (K,6) 

Lq linea 10 definisce la funzione che calcola l'area del 
rettangolo. 

La 20 compie l'assegnazione K = 3. 

La 30 assegna a Z il risultato della funzione richiamata 
usando gli argomenti K e 6. 

Quindi il computer assegnerà B=K, cioè B=3 e A=ó 
calcolando: 0 * 6 . 






Listato dell'esercizio: ESEMPIO PRATICO 
PER L'UTILIZZO DEL DEF 


10 deffnv(t)=9.8*t 
20 deffns(t)=(9.8*tt2)/2 

25 print">tempo velocità spazio" 

26 print" sec mt/sec mt" 

30 fork=ltol0 

40 v=fnv(k):s=fns(k) 

50 printk;tab(7);v;tab(15);s 
70 nextk 


Listato dell'esercizio: COMPLETA IL LISTATO 

10 printchr$|*| 

20 print 
30 forx=lto|*| 

40 r=|*|(rnd(0)*26+65) 

50 a$(x)=|*|(r) 

60 nextx 

70 s=|*| :print" " ; 

80 forx=ltol0 
90 printa$(x); 

100 a$=|*|+a$(x) 

110 next|*|:print 
120 input|*| 

130 f=ti 

140 ift$=a$then|*| 

150 print"hai sbagliato" 

160 end 

170 print"secondi:";(f-s)/|*| 
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PROGRAMMIAMO INSIEME (CDM 64) 

10 poke53280,0:poke53281,9 
20 printchr$(147)chr$(5) 

30 for k=l to 3 
40 read s$(k),c$(k) 

50 next k 
60 for r=l to 3 

70 print"capitale della ";s$(r) 

80 input"risposta";r$- 

90 ifr$=c$(r)thenprint"esatta":e=e+l:goto 110 
100 print"sbagliata" 

110 next r 

120 print"risultati:" 

130 print"domande n. 3" 

140 print"risposte esatte n.";e 

200 data"grecia","atene","francia","parigi","gran bretagna","londra" 

PROGRAMMIAMO INSIEME (VIC 20) 

10 poke36879,136 
20 printchr$(147)chr$(5) 

30 for k=l to 3 
40 read s$(k),c$(k) 

50 next k 
60 for r=l to 3 

70 print"capitale della ";s$(r) 

80 input"risposta";r$ 

90 ifr$=c$(r)thenprint"esatta":e=e+l:goto 110 
100 print"sbagliata ,K 
110 next r 

120 print"risultati:" 

130 print"domande n. 3" 

140 print"risposte esatte n.";e 

200 data"grecia","atene","francia","parigi","gran bretagna","londra" 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO 

(lez. 19) 

10 DIMA$(15),B$(15) 

20 INPUT"QUANTI NOMI(1-15)";N 
30 IFN>15THEN20 
40 F0RK=1T0N 
50 INPUT"N0ME";A$(K) 

60 NEXTK 
70 H=1 

80 F0RI=1T0N 
90 F0RK=1T0N 

100 IFA$(I)<A$(K)THENH=H+1 
110 NEXTK 

120 IFB$(H)<>""THENH=H+1:GOTO120 
130 B$(H)=A$(I):H=1:NEXTI 
140 F0RK=NT01STEP-1 
150 PRINTB$(K) 

160 NEXTK 


©1984 by Arti Grafiche Ricordi - Milano * Registrato presso il Tribunale di Milano N. 122 del 3 marzo 1984 



